;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  
(DEFUN c:ppdisp ()
  (SETQ xrlay_lst NIL)
  (TBLNEXT "LAYER" T)
  (WHILE
    (SETQ xrlay_can (TBLNEXT "layer"))
    (IF xrlay_lst
      (IF (>(CDR(ASSOC 62 xrlay_can))0)
        (SETQ xrlay_lst (APPEND xrlay_lst (LIST xrlay_can)))
      )
      (IF (>(CDR(ASSOC 62 xrlay_can))0)
        (SETQ xrlay_lst (LIST xrlay_can))
      )
    ) ;_ end of if
  ) ;_ end of while
  (SETQ dsp_scale (uint 1 "" "Display scale (a real no.)" dsp_scale))
  
)